;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  3-12-2002
;;;	   Edited:  3-12-2002
(DEFUN C:DISOFF ()
      (IF c:dis NIL (LOAD "DIS" "\nFile DIS.LSP not loaded! "))
      (IF(AND c:dis (SETQ disstatus (TBLSEARCH "LAYER" "DISCLAIMER")))
        (IF (<(CDR(ASSOC 62 disstatus))0)
          NIL
	  (C:DIS)
	)
      )
      (IF(AND c:dis (SETQ disstatus (TBLSEARCH "LAYER" "DISCLAIMER|DISCLAIMER")))
        (IF (<(CDR(ASSOC 62 disstatus))0)
	  NIL
	  (C:DIS)
	)
      )
)
(DEFUN C:DISON ()
      (IF c:dis NIL (LOAD "DIS" "\nFile DIS.LSP not loaded! "))
      (IF(AND c:dis (SETQ disstatus (TBLSEARCH "LAYER" "DISCLAIMER")))
        (IF (>(CDR(ASSOC 62 disstatus))0)
          NIL
	  (C:DIS)
	)
      )
      (IF(AND c:dis (SETQ disstatus (TBLSEARCH "LAYER" "DISCLAIMER|DISCLAIMER")))
        (IF (>(CDR(ASSOC 62 disstatus))0)
	  NIL
	  (C:DIS)
	)
      )
)
